home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS210.dsk / EAC.BOOT.bas < prev    next >
BASIC Source File  |  2012-02-16  |  4KB  |  68 lines
  1. 0  REM ************************
  2. 1  REM * ERIE APPLE CRUNCHERS *
  3. 2  REM *   MENU AND CATALOG   *
  4. 3  REM * MAINTAINANCE PROGRAM *
  5. 4  REM *   BY: RUDY A. GUY    *
  6. 5  REM *   663 WEST 7TH ST    *
  7. 6  REM *   ERIE, PA  16502    *
  8. 7  REM *  PH:(814) 455-1505   *
  9. 8  REM *    PUBLIC DOMAIN     *
  10. 9  REM ************************<CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J>
  11. 10  DIM X(13),Y(13),SCREENLOC(22)
  12. 20  FOR I = 44601 TO 44603: POKE I,234: NEXT 
  13. 30  FOR I = 1 TO 22: READ SCREENLOC(I): NEXT 
  14. 50  HGR :A$ = "                                        ": FOR I = 21 TO 24: VTAB I: INVERSE 
  15. 60  IF I <24  THEN  PRINT A$;: GOTO 80
  16. 70  PRINT  LEFT$(A$,39);: POKE 2039,32: NORMAL : GOTO 90
  17. 80  NEXT 
  18. 90  HCOLOR= 3
  19. 100  HPLOT 0,0: CALL 62454
  20. 110  HCOLOR= 0
  21. 120  FOR I = 1 TO 7: READ A(I): NEXT 
  22. 130  FOR T = 1 TO 7: GOSUB 470
  23. 140  IF T = 1  THEN J = 88:J1 = 48:B = 35:E = 49: GOSUB 530: HPLOT 77,56 TO 91,48: HPLOT 63,72 TO 77,64: HPLOT 35,88 TO 77,88 TO 91,80: GOTO 170
  24. 150  IF T = 4  THEN J = 88:J1 = 48:X = 126:B = 105:E = 119: GOSUB 550:J = 88:J1 = 80:B = 133:E = 147: GOSUB 530: GOTO 170
  25. 160  IF T = 7  THEN J = 88:J1 = 48:B = 175:E = 189: GOSUB 530:J = 60:J1 = 56:B = 203:E = 217: GOSUB 530: HPLOT 210,72 TO 217,68 TO 214,72 TO 217,70: HPLOT 4,32 TO 275,32 TO 275,96 TO 4,96 TO 4,32: HPLOT 9,36 TO 271,36 TO 271,92 TO 9,92 TO 9,36
  26. 170  NEXT 
  27. 180 D = 1: VTAB 21:A$ = "ERIE APPLE CRUNCHERS": GOSUB 460:A$ = "PRESENT": GOSUB 460
  28. 185 A$ = "THE DNA WORKSHOP BY DAVID CALABRESE": GOSUB 460
  29. 190 X =  PEEK( -16384): IF X >127  THEN  POKE  -16368,0: PRINT : PRINT  CHR$(4)"RUN HELLO"
  30. 200  GOTO 190
  31. 460  HTAB 20 - LEN(A$)/2: INVERSE : PRINT A$: NORMAL : RETURN 
  32. 470  FOR I = 1 TO A(T)
  33. 480  READ X(I),Y(I): NEXT 
  34. 490  FOR I = 1 TO A(T) -1
  35. 500  HPLOT X(I),Y(I) TO X(I +1),Y(I +1)
  36. 510  NEXT 
  37. 520  RETURN 
  38. 530  REM :SHADE IN LETTERS
  39. 540  FOR I = B TO E: HPLOT I,J TO I,J1:J = J -.57:J1 = J1 -.57: NEXT : RETURN 
  40. 550  REM :SHADE AT ANGLE
  41. 560  FOR I = B TO E: HPLOT I,J TO X,J1:J = J -.57:J1 = J1 -.57:X = X +1: NEXT : RETURN 
  42. 620 B$ = ""
  43. 625  FOR I = SCREENLOC(SL) TO SCREENLOC(SL) +36:B$ = B$ + CHR$( PEEK(I)): NEXT 
  44. 630  IF A$ =  CHR$(27)  AND  ASC( MID$ (B$,1,1)) = 212  THEN  POP : GOTO 320
  45. 635  PRINT 
  46. 640  IF  ASC( MID$ (B$,1,1)) = 194  THEN D$ = "B": TEXT : HOME :B$ =  MID$ (B$,7,30): RETURN 
  47. 650  IF  ASC( MID$ (B$,1,1)) = 212  THEN  TEXT : HOME : PRINT  CHR$(4)"EXEC " MID$ (B$,7,30): END 
  48. 660 B$ =  MID$ (B$,7,23): TEXT : HOME : RETURN 
  49. 670  REM : MAINTAIN FILES
  50. 680 B$ = ""
  51. 690  FOR I = SCREENLOC(SL) TO SCREENLOC(SL) +36:B$ = B$ + CHR$( PEEK(I)): NEXT 
  52. 700 B$ =  MID$ (B$,7,30)
  53. 710  VTAB BL +1: INVERSE : PRINT "TITLE : ";B$: NORMAL : PRINT "<L>OCK    <U>NLOCK    <R>ENAME          <D>ELETE  <V>ERIFY    <E>ND            ";
  54. 720 X =  PEEK( -16384)
  55. 730  IF X = 204  THEN  POKE  -16368,0: PRINT " LOCKING "B$: PRINT  CHR$(4)"LOCK "B$: RETURN 
  56. 740  IF X = 213  THEN  POKE  -16368,0: PRINT " UNLOCKING "; LEFT$(B$,27): PRINT  CHR$(4)"UNLOCK "B$: RETURN 
  57. 750  IF X = 210  THEN  POKE  -16368,0: HOME : PRINT "NEW NAME: ";: INPUT "";C$: HOME : PRINT "RENAMING "B$: PRINT  CHR$(4)"RENAME "B$","C$: RETURN 
  58. 760  IF X = 196  THEN  POKE  -16368,0: PRINT " DELETING " LEFT$(B$,27): PRINT  CHR$(4)"DELETE "B$: RETURN 
  59. 770  IF X = 214  THEN  POKE  -16368,0: PRINT " VERIFYING " LEFT$(B$,27): PRINT  CHR$(4)"VERIFY "B$: RETURN 
  60. 780  IF X = 197  THEN  POKE  -16368,0: RETURN 
  61. 790  GOTO 720
  62. 800  DATA  1025,1153,1281,1409,1537,1665,1793,1921,1065,1193,1321,1449,1577,1705,1833,1961,1105,1233,1361,1488,1617,1745
  63. 810  DATA  13,11,4,3,13,3,3
  64. 820  DATA 49,40,91,40,91,48,63,48,63,56,77,56,77,64,63,64,63,72,91,72,91,80,49,80,49,40
  65. 830  DATA 119,80,140,40,161,80,147,80,147,72,133,72,133,80,119,80,105,88,119,88,147,72 
  66. 840  DATA 140,52,145,64,135,64,140,52,161,80,145,88,135,88
  67. 850  DATA  189,40,231,40,231,52,217,52,217,48,203,48,203,72,217,72,217,68,231,68,231,80,189,80,189,40
  68. 860  DATA 231,52,217,60,203,60,231,80,217,88,175,88